perm filename BPEROP.FAI[CMS,LCS] blob
sn#336460 filedate 1978-02-20 generic text, type T, neo UTF8
00100 ;ROUTINE TO FIND THE NUMBER OF BYTES FOR A GIVEN OPCODE
00200 ; A ← OPCODE TO CHECK
00300 ; RETURNS WITH NUMBER OF BYTES IN X
00400 .INSERT ASMBL.FAI[CMS,LCS]
00500
00600 BIT0: 1
00700 BIT012: 7
00800 BIT2: 4
00900 BIT3: 10
01000 BIT4: 20
01100 BIT7: 200
01200
01300 CKOP: BEQ ONEB
01400 CMPI 140
01500 BEQ ONEB
01600 NOP
01700 BIT BIT3
01800 BEQ HALFOF
01900 BIT BIT2
02000 BNE THREEB
02100 BIT BIT0
02200 BEQ ONEB
02300 BIT BIT4
02400 BEQ TWOB
02500 BNE THREEB
02600 HALFOP: BIT BIT012
02700 BNE TWOB
02800 BIT BIT4
02900 BNE 2B
03000 BIT BIT7
03100 BNE TWOB
03200 THREEB: INX
03300 TWOB: INX
03400 ONEB: INX
03500 RTS
03600 END